home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00151_Recipe mode button on main screen.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  498 b   |  33 lines
  1. property pSpr, pRollMember, pOrigMember, pOrigColor
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember)
  7.   pOrigColor = pSpr.color
  8.   setCursor(pSpr, pointingHand())
  9. end
  10.  
  11. on endSprite
  12.   setCursor(pSpr, defaultCursor())
  13. end
  14.  
  15. on mouseEnter me
  16.   pSpr.color = white()
  17. end
  18.  
  19. on mouseLeave me
  20.   pSpr.color = pOrigColor
  21. end
  22.  
  23. on mouseUp me
  24.   global gMode
  25.   gMode = #recipe
  26.   waitCursor()
  27.   go("Preview")
  28. end
  29.  
  30. on mouseDown me
  31.   clickSound()
  32. end
  33.